home *** CD-ROM | disk | FTP | other *** search
/ ATComputers Catalog / AutoCont+ATcomp.bin / Data / GameLib.dcr / 00008_Laden und Speichern.ls < prev    next >
Encoding:
Text File  |  2001-08-24  |  2.6 KB  |  50 lines
  1. on HdleDatenSpeichern
  2.   global _Lautstaerke, _EinstellOK, _EffektSchalter, _AktSeite, _aktGamepath, _Objektliste, _Einstelliste, _Funktionsliste, _EMailliste, _RondelZahl, _letzteAufg
  3.   DatNamen = baSysFolder("desktop") & "bioscopia.ini"
  4.   Ok = 1
  5.   Ok = baWriteIni("general", "Volume", string(_Lautstaerke), DatNamen)
  6.   Ok = baWriteIni("general", "Parameter", string(_EinstellOK), DatNamen)
  7.   Ok = baWriteIni("general", "Transition", string(_EffektSchalter), DatNamen)
  8.   Ok = baWriteIni("general", "Page", string(_AktSeite), DatNamen)
  9.   tell the stage
  10.     myMovieName = the movieName
  11.   end tell
  12.   Ok = baWriteIni("general", "MovieName", myMovieName, DatNamen)
  13.   tell the stage
  14.     myMoviePath = the moviePath
  15.   end tell
  16.   Ok = baWriteIni("general", "MoviePath", myMoviePath, DatNamen)
  17.   Ok = baWriteIni("Game", "aktgamepath", _aktGamepath, DatNamen)
  18.   Ok = baWriteIni("Game", "objects", string(_Objektliste), DatNamen)
  19.   Ok = baWriteIni("Game", "attitudes", string(_Einstelliste), DatNamen)
  20.   Ok = baWriteIni("Game", "Functions", string(_Funktionsliste), DatNamen)
  21.   Ok = baWriteIni("Game", "EMail", string(_EMailliste), DatNamen)
  22.   Ok = baWriteIni("Game", "RZahl", string(_RondelZahl), DatNamen)
  23.   Ok = baWriteIni("Game", "LAufg", string(_letzteAufg), DatNamen)
  24. end
  25.  
  26. on HdleDatenLaden
  27.   global _Lautstaerke, _EinstellOK, _EffektSchalter, _AktSeite, _aktGamepath, _Objektliste, _Einstelliste, _Funktionsliste, _EMailliste, _RondelZahl, _letzteAufg
  28.   DatNamen = baSysFolder("desktop") & "bioscopia.ini"
  29.   if baFileExists(DatNamen) then
  30.     _Lautstaerke = value(baReadIni("general", "Volume", "KapError", DatNamen))
  31.     _EinstellOK = value(baReadIni("general", "Parameter", "KapError", DatNamen))
  32.     _EffektSchalter = value(baReadIni("general", "Transition", "KapError", DatNamen))
  33.     _AktSeite = baReadIni("general", "Page", "KapError", DatNamen)
  34.     myMovieName = baReadIni("general", "MovieName", "KapError", DatNamen)
  35.     myMoviePath = baReadIni("general", "MoviePath", "KapError", DatNamen)
  36.     _aktGamepath = baReadIni("Game", "aktgamepath", "HakError", DatNamen)
  37.     _Objektliste = value(baReadIni("Game", "objects", "HakError", DatNamen))
  38.     _Einstelliste = value(baReadIni("Game", "attitudes", "HakError", DatNamen))
  39.     _Funktionsliste = value(baReadIni("Game", "Functions", "HakError", DatNamen))
  40.     _EMailliste = value(baReadIni("Game", "EMail", "HakError", DatNamen))
  41.     _RondelZahl = value(baReadIni("Game", "RZahl", "HakError", DatNamen))
  42.     _letzteAufg = value(baReadIni("Game", "LAufg", "HakError", DatNamen))
  43.     tell the stage
  44.       go(_AktSeite, myMoviePath & myMovieName)
  45.     end tell
  46.   else
  47.     alert("Keine Datendatei auf dem Desktop vorhanden")
  48.   end if
  49. end
  50.